gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceXs_4.asp
<!-- #include file="include/Config.asp" --> <!-- #include file="include/Conn.asp" --> <!-- #include file="include/Function.asp" --> <% ''////////////// 竖直运动 id=trim(request.querystring("id")) IF isnumeric(id) then xsnr="" Pid=cint(id) Pname=trim(request("Pname")) Plei=trim(request("Plei")) Pcss=trim(request("Pcss")) Cid=trim(request("Cid")) ADids=trim(request("ADids")) '' 得到对齐方式 dq=PubFgdy(Pcss,",",Ubound(split(Pcss,","))) '' 得到背景 if PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1)<>"" then bg=" bgcolor='"&replace(PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1),"#","#")&"'" else bg="" end if '' 得到运动方向 fx=PubFgdy(Pcss,",",7) '' 得到运动模式 ms=PubFgdy(Pcss,",",10) '' 得到速度(数量) if isnumeric(PubFgdy(Pcss,",",8)) then sl=cint(PubFgdy(Pcss,",",8)) else sl=6 end if '''''''''''''''' '' 得到速度(延迟) if isnumeric(PubFgdy(Pcss,",",9)) then yc=cint(PubFgdy(Pcss,",",9)) else yc=90 end if '''''''''''''''' xsnr = xsnr & "<marquee onMouseover='this.scrollAmount=0' onMouseout='this.scrollAmount="&sl&"' scrollamount='"&sl&"' scrolldelay='"&yc&"' direction='"&fx&"' behavior='"&ms&"' align='"&dq&"' width='100%' height='100%' "&bg&">" xsnr = xsnr & "<table border='0' cellpadding='0' style='border-collapse: collapse' align='"&dq&"'><tr><td valign='top' align='"&dq&"'>" if trim(ADids)<>"" and instr(trim(ADids),",")=0 then Aid=cint(trim(ADids)) Call GgtiaoXs(Aid) else ads=Ubound(split(ADids,","))+1 '' 得到每列显示数 if isnumeric(PubFgdy(Pcss,",",4)) then ds=cint(PubFgdy(Pcss,",",4)) else ds=Ubound(split(ADids,","))+1 end if '''''''''''''''' '' 得到行间距 if isnumeric(PubFgdy(Pcss,",",5)) then hjj=cint(PubFgdy(Pcss,",",5)) else hjj=10 end if '''''''''''''''' '' 得到列间距 if isnumeric(PubFgdy(Pcss,",",6)) then ljj=cint(PubFgdy(Pcss,",",6)) else ljj=6 end if '''''''''''''''' for j=0 to Ubound(split(adids&",",","))-1 '' 循环排列显示开始 if isnumeric(PubFgdy(ADids,",",j))=true then Aid=Cint(PubFgdy(ADids,",",j)) Call GgtiaoXs(Aid) if (j+1)mod ds >0 then xsnr = xsnr & FhjjCode(hjj) end if if ds=0 or ds="" then ds=1 if (j+1)mod ds =0 and j+1<ads then xsnr = xsnr & "</td>"&FljjCode(ljj)&"<td valign='top' align='"&dq&"'>" next '' 循环排列显示结束 end if xsnr = xsnr & "</td></tr></table>" xsnr = xsnr & "</marquee>" response.write "<script>document.write(unescape("""&escape(xsnr)&"""));</script>" end IF %>